#!/usr/bin/perl
#
use strict;
use warnings;

my $exit = 0;

while ($exit != 1) {
	print "Digite um valor\n";
	my $opcao = <STDIN>;
	if ($opcao == 1) {
		$exit = 1;
	} else {
		print "O valor digitado foi \t $opcao\n";
	}
}
